home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 February / Chip_2003-02_cd1.bin / zkuste / xptools / install / Xsetup / setup.exe / {app} / plugins / XQ MSOXP OTL Options 5.xpl < prev    next >
Text File  |  2002-12-05  |  2KB  |  44 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Program Options\Microsoft Office\MS Office XP\Outlook"
  5. "UIPATH 2"="Internet\Instant Messaging\Windows Messenger\System"
  6. "NAME"="Windows Messenger/Outlook XP Integration"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable Windows Messenger in Outlook XP"
  9. "DESCRIPTION 1"="If Windows Messenger is enabled on your computer and Outlook XP is started, Windows Messenger will be started as well even if you have closed it before."
  10. "DESCRIPTION 2"="Clear the checkbox to prevent this behaviour, place a tick next to it to enable it."
  11. "DESCRIPTION 3"="You should close Outlook XP completely before changing this option."
  12. "VERSION"="1.01"
  13. "AUTHOR"="Denny Buyan (edited by Xteq Systems)"
  14. "COPYRIGHT"="Copyright ⌐ Denny Buyan - All Rights Reserved."
  15. "CONTACTURL"="mailto:d_buyan@hotmail.com"
  16. "COMMENT 1"="http://www.jsifaq.com/SUBK/tip5400/rh5402.htm"
  17. "COMMENT 2"="Microsoft Knowledge Base Article - Q302089"
  18.  
  19.  
  20. 'sP="HKLM\Software\Microsoft\Outlook Express\Hide Messenger"
  21. 'sP2="HKLM\SOFTWARE\Microsoft\MessengerService\"
  22.  
  23. sPCheck="HKCU\Software\Microsoft\Office\10.0\Word\"
  24. sP="HKCU\Software\Policies\Microsoft\Office\10.0\Outlook\InstantMessaging\ForceDisableIM"
  25. Sub Plugin_Initialize 
  26. if RegPathExists(sPCheck) then
  27.    i=RegReadValue(sP)
  28.    if i<>1 then SetUIElement 1,true
  29. end if
  30. END SUB
  31.  
  32.  
  33. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  if GetUIElement(1)=true then
  35.     if RegValueExists(sP) then call RegDeleteValue(sP)
  36.  else
  37.     Call RegWriteValue(sP,1,2)
  38.  end if
  39.  
  40. END SUB
  41.  
  42. SUB Plugin_Terminate
  43. END SUB
  44.